(define
    (factorial n)
    (if (= n 1)
        1
        (* n (factorial (- n 1)))
    )
)

(display (factorial (string->number (list-ref (command-line-arguments) 0))))
(newline)
